home *** CD-ROM | disk | FTP | other *** search
/ The Very Best of Atari Inside / The Very Best of Atari Inside 1.iso / mint / mntlib43 / mntlib / _fltsisf.cpp < prev    next >
Text File  |  1993-07-09  |  1KB  |  52 lines
  1. |
  2. | long integer to single float conversion routine
  3. |
  4. | Andreas Schwab (schwab@ls5.informatik.uni-dortmund.de)
  5. |  mostly copied from _floatsi.cpp
  6.  
  7. #ifndef __M68881__
  8.     .text
  9.     .even
  10.     .globl    ___floatsisf
  11.  
  12. ___floatsisf:
  13. #ifdef    sfp004
  14.  
  15. | addresses of the 68881 data port. This choice is fastest when much data is
  16. | transferred between the two processors.
  17.  
  18. comm =     -6    |    fpu command reg
  19. resp =    -16    |    fpu response reg
  20. zahl =      0    |    fpu data reg
  21.  
  22.     lea    0xfffffa50:w,a0
  23.     movew    #0x4000,a0@(comm)    | load long int to fp0
  24.     cmpiw    #0x8900,a0@(resp)    | check
  25.     movel    a7@(4),a0@
  26.     movew    #0x6400,a0@(comm)    | get single from fp0
  27. | wait loop is NOT coded directly
  28. 1:    cmpw    #0x8900,a0@(resp)
  29.     beq    1b
  30.     movel    a0@,d0
  31.     rts
  32.  
  33. #else /* !sfp004 */
  34.  
  35. BIAS4    =    0x7F-1
  36.  
  37.     moveml    d2-d5,sp@-    | save registers to make norm_sf happy
  38.  
  39.     movel    sp@(20),d4    | prepare result mantissa
  40.     movew    #BIAS4+32-8,d0    | radix point after 32 bits
  41.     movel    d4,d2        | set sign flag
  42.     bge    1f        | nonnegative
  43.     negl    d4        | take absolute value
  44. 1:
  45.     swap    d2        | follow norm_sf conventions
  46.     clrw    d1        | set rounding = 0
  47.     jmp    norm_sf
  48.  
  49. #endif /* !sfp004 */
  50.  
  51. #endif /* !__M68881__ */
  52.